<% youname1=trim(request("youname1")) youname2=trim(request("youname2")) youname=trim(request("youname")) sex=trim(request("sex")) nx=trim(request("nx")) nian=trim(request("nian")) yue=trim(request("yue")) ri=trim(request("ri")) hh=trim(request("hh")) ns=trim(request("ns")) zd=trim(request("zd")) ji=trim(request("ji")) bj=trim(request("bj")) xiong=trim(request("xiong")) xn=trim(request("xn")) zf=trim(request("zf")) '判断吉凶限制情况 if zd="1" then zdasp="zd" jxjx=0 if bj="yes" then ji="yes" : jxjx=1 if xiong="yes" then ji="yes":bj="yes":jxjx=2 if xiong="" then xn=1 if ji="" and bj="" and xiong="" then jxjx=2 lx=len(youname1)&ns '时辰 if hh>=1 and hh<3 then shi= "丑时" if hh>=3 and hh<5 then shi= "寅时" if hh>=5 and hh<7 then shi= "卯时" if hh>=7 and hh<9 then shi= "辰时" if hh>=9 and hh<11 then shi= "巳时" if hh>=11 and hh<13 then shi= "午时" if hh>=13 and hh<15 then shi= "未时" if hh>=15 and hh<17 then shi= "申时" if hh>=17 and hh<19 then shi= "酉时" if hh>=19 and hh<21 then shi= "戌时" if hh>=21 and hh<23 then shi= "亥时" if hh>=23 or hh<1 then shi= "子时" '计算姓笔画 bh11=bhk366(mid(youname1,1,1)) if len(youname1)=2 then bh12=bhk366(mid(youname1,2,1)) else dx=1 end if bh1=bh11+bh12 '取得姓的五行和取名注意点 if bh12>0 then Response.Cookies("cm-xwh")=zwh(mid(youname1,1,1))&" "&zwh(mid(youname1,2,1))'姓五行 else Response.Cookies("cm-xwh")=zwh(youname1)'姓五行 end if Response.Cookies("cm-xzy")=xing(youname1)'取名注意 %> <% CloseDatabase %>